home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / extensions / procs / _movetext.amos / _movetext.amosSourceCode
Encoding:
AMOS Source Code  |  2008-12-10  |  742 b   |  24 lines
  1. Load Iff "dh0:__pics/error-soft",1
  2. Wait 10
  3. T$="Hallo Martin ..."
  4. If Extension_22_032A(Len(T$))=0 Then T$=T$+" "
  5. B=Len(T$)* Extension_22_04A4 : H= Extension_22_04B4 
  6. X=90 : Y=100 : Gr Locate X,Y
  7. Inverse On : Gr Writing 0 : Ink 1
  8. Limit Mouse X Hard(0),Y Hard(0) To X Hard(Screen Width),Y Hard(Screen Height)
  9. Do 
  10.    Wait Vbl 
  11.    Get Block 241,X-1,Y-H,B,H+3
  12.    Text X,Y,T$
  13.    NODISPLAY:
  14.    MK=0 : While MK=0 : MK=Mouse Key : Wend 
  15.    If MK=2 Then Edit 
  16.    If X=X Screen(X Mouse) and Y=Y Screen(Y Mouse) Then Goto NODISPLAY
  17.    Put Block 241,X-1,Y-H
  18.    X=X Screen(X Mouse) : Y=Y Screen(Y Mouse)
  19.    If X<1 Then X=1
  20.    If X+B>Screen Width Then X=Screen Width-B
  21.    If Y-H<0 Then Y=H
  22.    If Y+3>Screen Height Then Y=Screen Height-3
  23.    Del Block 241
  24. Loop